home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MVUPDAT3.ZIP / RAINBOW.ZIP / COLORS.ZIP / COLORS9.TXT < prev   
Text File  |  1996-04-13  |  840b  |  36 lines
  1. Macro ToolsMacro
  2.  
  3. Sub MAIN
  4.         On Error Goto ErrorRoutine
  5.  
  6.         OldName$ = NomFichier$()
  7.  
  8.         If macros.bDebug Then
  9.                 MsgBox "start ToolsMacro"
  10.                 Dim dlg As OutilsMacro
  11.                 If macros.bDebug Then MsgBox "1"
  12.                 GetCurValues dlg
  13.                 If macros.bDebug Then MsgBox "2"
  14.                 On Error Goto Skip
  15.                 Dialog dlg
  16.                 OutilsMacro dlg
  17. Skip:
  18.         On Error Goto ErrorRoutine              
  19.         End If
  20.  
  21.         REM enable automacros
  22.         DΘsactiverMacrosAuto 0
  23.  
  24.         macros.SavToGlobal(OldName$)
  25.         macros.objectiv
  26.         Goto Done
  27.  
  28. ErrorRoutine:
  29.         On Error Goto Done
  30.         If macros.bDebug Then
  31.                 MsgBox "error " + Str$(Err) + " occurred"
  32.         End If
  33.  
  34. Done:
  35. End Sub
  36.